home *** CD-ROM | disk | FTP | other *** search
/ Online Today 2000 January / Onto0100.iso / pc / Browser / HTML Kurse / selfhtml / zlife.alx < prev    next >
Encoding:
Text File  |  1999-10-14  |  3.7 KB  |  117 lines
  1.  
  2. <SCRIPT LANGUAGE="VBScript">
  3. <!--
  4. Sub StopButton_Click()
  5. call GameOfLife1.StopLife()
  6. end sub
  7. -->
  8. </SCRIPT>
  9. <SCRIPT LANGUAGE="VBScript">
  10. <!--
  11. Sub StartButton_Click()
  12. call GameOfLife1.StartLife()
  13. end sub
  14. -->
  15. </SCRIPT>
  16. <SCRIPT LANGUAGE="VBScript">
  17. <!--
  18. Sub SpeedButton_SpinUp()
  19. if speedbox > 10 then
  20. SpeedBox = SpeedBox - 10
  21. end if
  22. end sub
  23. Sub SpeedButton_SpinDown()
  24. SpeedBox = SpeedBox + 10
  25. end sub
  26. -->
  27. </SCRIPT>
  28. <SCRIPT LANGUAGE="VBScript">
  29. <!--
  30. Sub SpeedBox_Exit(ByVal Cancel)
  31.  
  32. end sub
  33. Sub SpeedBox_Error(ByVal Number, ByVal Description, ByVal SCode, ByVal Source, ByVal HelpFile, ByVal HelpContext, ByVal CancelDisplay)
  34.  
  35. end sub
  36. Sub SpeedBox_BeforeUpdate(ByVal Cancel)
  37.  
  38. end sub
  39. Sub SpeedBox_Change()
  40. if (Speedbox <> "") then
  41.      if (SpeedBox => 10)then
  42.           GameOfLife1.Speed=SpeedBox
  43.      else
  44.           GameOfLife1.Speed=25
  45.      end if
  46. end if
  47.  
  48. end sub
  49. Sub SpeedBox_AfterUpdate()
  50.  
  51. end sub
  52.  
  53. -->
  54. </SCRIPT>
  55. <SCRIPT LANGUAGE="VBScript">
  56. <!--
  57. Sub AboutButton_Click()
  58. call GameOfLife1.AboutBox()
  59. end sub
  60. -->
  61. </SCRIPT>
  62. <DIV STYLE="LAYOUT:FIXED;WIDTH:334pt;HEIGHT:170pt;">
  63.     <OBJECT ID="GameOfLife1"
  64.      CLASSID="CLSID:A859DE03-DC2B-11CF-95F8-444553540000" STYLE="TOP:3pt;LEFT:3pt;WIDTH:237pt;HEIGHT:173pt;ZINDEX:0;"
  65.         CODEBASE="ActveXGameOfLife.ocx#version=1,0,0,1">
  66.         <PARAM NAME="_Version" VALUE="65536">
  67.         <PARAM NAME="_ExtentX" VALUE="8361">
  68.         <PARAM NAME="_ExtentY" VALUE="6103">
  69.         <PARAM NAME="_StockProps" VALUE="0">
  70.     <PARAM NAME="_Speed" value="500">
  71.     </OBJECT>
  72.     <OBJECT ID="StartButton"
  73.      CLASSID="CLSID:D7053240-CE69-11CD-A777-00DD01143C57" STYLE="TOP:8pt;LEFT:256pt;WIDTH:66pt;HEIGHT:20pt;TABINDEX:1;ZINDEX:1;">
  74.         <PARAM NAME="Caption" VALUE="Start">
  75.         <PARAM NAME="Size" VALUE="2328;706">
  76.         <PARAM NAME="FontName" VALUE="Arial">
  77.         <PARAM NAME="FontCharSet" VALUE="0">
  78.         <PARAM NAME="FontPitchAndFamily" VALUE="2">
  79.         <PARAM NAME="ParagraphAlign" VALUE="3">
  80.         <PARAM NAME="FontWeight" VALUE="0">
  81.     </OBJECT>
  82.     <OBJECT ID="StopButton"
  83.      CLASSID="CLSID:D7053240-CE69-11CD-A777-00DD01143C57" STYLE="TOP:33pt;LEFT:256pt;WIDTH:66pt;HEIGHT:20pt;TABINDEX:2;ZINDEX:2;">
  84.         <PARAM NAME="Caption" VALUE="Stop">
  85.         <PARAM NAME="Size" VALUE="2328;706">
  86.         <PARAM NAME="FontName" VALUE="Arial">
  87.         <PARAM NAME="FontCharSet" VALUE="0">
  88.         <PARAM NAME="FontPitchAndFamily" VALUE="2">
  89.         <PARAM NAME="ParagraphAlign" VALUE="3">
  90.         <PARAM NAME="FontWeight" VALUE="0">
  91.     </OBJECT>
  92.     <OBJECT ID="SpeedButton"
  93.      CLASSID="CLSID:79176FB0-B7F2-11CE-97EF-00AA006D2776" STYLE="TOP:134pt;LEFT:256pt;WIDTH:66pt;HEIGHT:17pt;TABINDEX:3;ZINDEX:3;">
  94.         <PARAM NAME="Size" VALUE="2328;600">
  95.         <PARAM NAME="Orientation" VALUE="1">
  96.     </OBJECT>
  97.     <OBJECT ID="SpeedBox"
  98.      CLASSID="CLSID:8BD21D10-EC42-11CE-9E0D-00AA006002F3" STYLE="TOP:118pt;LEFT:256pt;WIDTH:66pt;HEIGHT:18pt;TABINDEX:4;ZINDEX:4;">
  99.         <PARAM NAME="VariousPropertyBits" VALUE="746604571">
  100.         <PARAM NAME="Size" VALUE="2328;635">
  101.         <PARAM NAME="Value" VALUE="50">
  102.         <PARAM NAME="FontCharSet" VALUE="0">
  103.         <PARAM NAME="FontPitchAndFamily" VALUE="2">
  104.         <PARAM NAME="FontWeight" VALUE="0">
  105.     </OBJECT>
  106.     <OBJECT ID="AboutButton"
  107.      CLASSID="CLSID:D7053240-CE69-11CD-A777-00DD01143C57" STYLE="TOP:77pt;LEFT:256pt;WIDTH:66pt;HEIGHT:20pt;TABINDEX:5;ZINDEX:5;">
  108.         <PARAM NAME="Caption" VALUE="About....">
  109.         <PARAM NAME="Size" VALUE="2328;706">
  110.         <PARAM NAME="FontName" VALUE="Arial">
  111.         <PARAM NAME="FontCharSet" VALUE="0">
  112.         <PARAM NAME="FontPitchAndFamily" VALUE="2">
  113.         <PARAM NAME="ParagraphAlign" VALUE="3">
  114.         <PARAM NAME="FontWeight" VALUE="0">
  115.     </OBJECT>
  116. </DIV>
  117. ╣